home *** CD-ROM | disk | FTP | other *** search
/ Guidemac 2 / Guidemac 2.iso / Logiciels divers T1 / Gestion / Bibliographie⁄Répertoire / Répertoire 3.0 / RÈpertoire 3.0.rsrc / LENS_133_Consultation < prev    next >
Text File  |  1994-08-22  |  2KB  |  21 lines
  1. ItemType: WIND
  2. Rect: 241,167,399,189
  3. Style: Windoid
  4. HasTitleBar: TRUE
  5. HasZoomBox: FALSE
  6. HasCloseBox: TRUE
  7. HasGrowBox: FALSE
  8. MinSize: 100,16
  9. MaxSize: 865,597
  10. Name: Consultation
  11. TextFont: Geneva
  12. TextSize: 9
  13. WhiteColor: -1,-1,-13108
  14. Script: --Example by Brian Molyneaux, Heizer Software¬--on windowEvent  wdID,wdName,objNo,objName,objValue¬¬if objValue="Open" then ¬  wsSet wdID,"1","Text",laListe¬  put true into GCorne¬  put empty into GSubSelec¬  if there is a window "Recherche" then¬    wsSet "Recherche","0","Visible","False"¬  end if¬  if there is a window "MultiRecherches" then¬    wsSet "MultiRecherches","0","Visible","False"¬  end if¬  if there is a window "CombiRecherches" then¬    wsSet "CombiRecherches","0","Visible","False"¬  end if¬else if objValue="Close" then¬  if there is a window "Recherche" then¬    wsSet "Recherche","0","Visible","True"¬  end if¬  if there is a window "MultiRecherches" then¬    wsSet "MultiRecherches","0","Visible","True"¬  end if¬  if there is a window "CombiRecherches" then¬    wsSet "CombiRecherches","0","Visible","True"¬  end if¬  ¬else if objValue="Suspend" then ¬  ¬else if objValue="Resume" then ¬  ¬else if objValue="CloseBox" then ¬  ¬else if objValue="ZoomBox" then ¬  ¬else if objValue="GrowBox" then ¬  ¬else if objValue="TitleBar" then ¬  ¬end if¬¬--end windowEvent¬
  15.  
  16. ItemType: POP
  17. Rect: 2,2,156,20
  18. AutoSize: FALSE
  19. WhiteColor: -8739,-8739,-8739
  20. Text: laListe
  21. Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬put the short id of this cd into ICI¬get wsGet(wdID,"1","SELECTIONText",laListe)¬if it is empty then¬  beep¬else if it is "Recherche infructueuse" then¬  beep¬else¬  put word 1 of it into  goTo¬  if goTo ≠ ici then  go cd id goTO¬end if¬¬--wsSet wdID,1,"SELECTION",0¬--end mouseUp¬